﻿Public Class Form8

    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CADISDataSet.V1011' table. You can move, or remove it, as needed.
        Me.V1011TableAdapter.Fill(Me.CADISDataSet.V1011)

        Me.Size = My.Settings.Form8Size
        FormPos(My.Settings.Form8Pos)
        Me.Location = My.Settings.Form8Pos

        'TODO: This line of code loads data into the 'CADISDataSet.V1001' table. You can move, or remove it, as needed.
        Me.V1001TableAdapter.Fill(Me.CADISDataSet.V1001)
        Me.V1011TableAdapter.Fill(Me.CADISDataSet.V1011)

        Me.CrystalReport21.SetDataSource(Me.CADISDataSet)

        ' Me.CRV.SelectionFormula = "{AUF.Auftragsnummer} like '70038349'"

        Me.CRV.ReportSource = Me.CrystalReport21
        Me.CRV.RefreshReport()

    End Sub

    Private Sub Form8_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        My.Settings.Form8Size = Me.Size
        My.Settings.Form8Pos = Me.Location


    End Sub


End Class